home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / yacas_alg / yacas_morphos / share / yacas / array.rep / code.ys < prev   
Encoding:
Text File  |  2002-03-13  |  257 b   |  19 lines
  1.  
  2.  
  3. ArrayCreateFromList(list):=
  4. [
  5.   Local(result,i);
  6.   result:=ArrayCreate(Length(list),0);
  7.   i:=1;
  8.   While (list != {})
  9.   [
  10.     result[i]:=Head(list);
  11.     i++;
  12.     list:=Tail(list);
  13.   ];
  14.   result;
  15. ];
  16.  
  17. ListFromArray(array):= (array[1 .. ArraySize(array) ]);
  18.  
  19.